home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 84xx / 8410.d64 / hc-mps 801 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  1.6 KB  |  32 lines
  1. 320 REM ***********************
  2. 330 REM *  HARDCOPY-LOADER    *
  3. 340 REM *                     *
  4. 350 REM *  RAINER KRACHT      *
  5. 360 REM *  GAERTNERTWIETE 9   *
  6. 370 REM *  2085 QUICKBORN     *
  7. 380 REM *                     *
  8. 390 REM *  MAERZ 1984         *
  9. 400 REM ***********************
  10. 410 :
  11. 420 :
  12. 430 DATA 0,32,253,174,32,158,183,32,201,255,162,29,142,116,193,169,0,133,251
  13. 440 DATA 133,255,169,8,32,210,255,32,233,193,169,0,160,195,133,176,132,177
  14. 450 DATA 169,13,32,210,255,169,40,133,21,169,128,133,151,169,0,133,20,160
  15. 460 DATA 6,177,176,37,151,240,7,165,20,25,226,193,133,20,136,16,240,165,20
  16. 470 DATA 9,128,32,210,255,70,151,144,223,165,176,105,6,133,176,144,2,230,177
  17. 480 DATA 198,21,208,205,206,116,193,208,180,169,13,32,210,255,76,204,255,1
  18. 490 DATA 2,4,8,16,32,64,160,39,132,252,169,0,133,248,162,8,10,38,248,6,252
  19. 500 DATA 144,7,24,105,7,144,2,230,248,202,208,239,133,247,24,165,255,101,247
  20. 510 DATA 133,247,169,195,101,248,133,248,169,0,133,250,152,201,32,48,2,230
  21. 520 DATA 250,10,10,10,133,249,24,165,251,101,249,133,249,169,0,101,250,133
  22. 530 DATA 250,24,169,32,101,250,133,250,165,251,74,74,74,133,252,133,253,169
  23. 540 DATA 0,133,254,162,8,10,38,254,6,253,144,7,24,105,56,144,2,230,254,202
  24. 550 DATA 208,239,133,253,24,165,252,101,254,133,254,24,165,253,101,249,133
  25. 560 DATA 249,165,254,101,250,133,250,162,0,165,1,133,2,169,54,133,1,161,249
  26. 570 DATA 129,247,165,2,133,1,136,48,3,76,235,193,165,251,201,199,240,18,230
  27. 580 DATA 251,230,255,165,255,201,7,240,3,76,233,193,169,0,133,255,96,169,195
  28. 590 DATA 133,248,169,4,133,247,162,40,169,0,160,2,145,247,136,16,251,165,247
  29. 600 DATA 24,105,7,133,247,144,2,230,248,202,208,233,96
  30. 610 FORI=49524TO49854:READA:POKEI,A:B=B+A:NEXT
  31. 620 IFB<>45611THENPRINT"FEHLER IN DATENZEILE !"
  32.